perm filename COMMAN.LSP[BNF,JRA] blob sn#028954 filedate 1973-03-14 generic text, type T, neo UTF8

(DEFPROP <CLAUSES> 
 (LAMBDA NIL
  (NLRR (QUOTE CLAUSES)
	(FUNCTION (LAMBDA NIL (COND ((AND (CH ;)) (QUOTE EMPTY)) ((AND (<C>) (CH ;)) (STK 1)) (*NIL*)))))) 
EXPR)

(DEFPROP <C> 
 (LAMBDA NIL
  (NLRR (QUOTE C)
	(FUNCTION
	 (LAMBDA NIL
	  (COND ((AND (<C1>) (CH /,) (<C>)) (CONS (STK 2) (STK 0)))
		((AND (<C1>)) (CONS (STK 0) NIL))
		(*NIL*)))))) 
EXPR)

(DEFPROP <C1> 
 (LAMBDA NIL
  (NLRR (QUOTE C1)
	(FUNCTION
	 (LAMBDA NIL
	  (COND ((AND (CH /@) (<S>)) (CONS (QUOTE STAT) (STK 0)))
		((AND (SPWD DSK) (CH :) (<FILE>)) (CONS (QUOTE DSK) (STK 0)))
		((AND (SPWD FIND) (CH /[) (<ID>) (CH /,) (<F1>) (CH /]))
		 (CONS (QUOTE FIND) (CONS (STK 3) (CONS (STK 1) NIL))))
		((AND (SPWD FINDC) (CH /[) (<F1>) (CH /]))
		 (CONS (QUOTE FIND) (CONS (QUOTE CLAUSES) (CONS (STK 1) NIL))))
		((AND (<NUMBER>)) (STK 0))
		((AND (<ID>) (CH /[) (<VARLIST>) (CH /])) (CONS (STK 3) (STK 1)))
		((AND (<ID>)) (STK 0))
		(*NIL*)))))) 
EXPR)

(DEFPROP <VARLIST> 
 (LAMBDA NIL
  (NLRR (QUOTE VARLIST)
	(FUNCTION
	 (LAMBDA NIL
	  (COND ((AND (<NUMBER>) (CH /,) (<VARLIST>)) (CONS (STK 2) (STK 0)))
		((AND (<NUMBER>)) (CONS (STK 0) NIL))
		(*NIL*)))))) 
EXPR)

(DEFPROP <FILE> 
 (LAMBDA NIL
  (NLRR (QUOTE FILE)
	(FUNCTION
	 (LAMBDA NIL
	  (COND ((AND (<ID>)) (STK 0))
		((AND (CH /() (<ID1>) (CH /.) (<ID>) (CH /))) (CONS (STK 3) (STK 1)))
		(*NIL*)))))) 
EXPR)

(DEFPROP <ID1> 
 (LAMBDA NIL (NLRR (QUOTE ID1) (FUNCTION (LAMBDA NIL (COND ((AND (<ID>)) (STK 0)) (*NIL*)))))) 
EXPR)

(DEFPROP <INPUT> 
 (LAMBDA NIL
  (NLRR (QUOTE INPUT)
	(FUNCTION
	 (LAMBDA NIL
	  (COND ((AND (<DECOP>) (CH :) (<OPLIST>)) (CONS (STK 2) (STK 0)))
		((AND (<ID>) (CH :)) (STK 1))
		((AND (<S>)) (STK 0))
		(*NIL*)))))) 
EXPR)

(DEFPROP <OPLIST> 
 (LAMBDA NIL (NLRR (QUOTE OPLIST) (FUNCTION (LAMBDA NIL (COND ((AND (<OPL>) (CH ;)) (STK 1)) (*NIL*)))))) 
EXPR)

(DEFPROP <OPL> 
 (LAMBDA NIL
  (NLRR (QUOTE OPL)
	(FUNCTION
	 (LAMBDA NIL
	  (COND ((AND (<OP>) (CH /,) (<OPL>)) (CONS (STK 2) (STK 0)))
		((AND (<OP>)) (CONS (STK 0) NIL))
		(*NIL*)))))) 
EXPR)

(DEFPROP <S> 
 (LAMBDA NIL
  (NLRR (QUOTE S)
	(FUNCTION (LAMBDA NIL (COND ((AND (CH ;)) (QUOTE EMPTY)) ((AND (<G1>) (CH ;)) (STK 1)) (*NIL*)))))) 
EXPR)

(DEFPROP <G1> 
 (LAMBDA NIL
  (LRR (QUOTE G1)
       (FUNCTION (LAMBDA NIL (COND ((AND (<G2>)) (STK 0)) (*NIL*))))
       (FUNCTION
	(LAMBDA (<*>) (COND ((AND (<EQUIV1>) (<G2>)) (CONS (STK 1) (CONS <*> (CONS (STK 0) NIL)))) (*NIL*)))))) 
EXPR)

(DEFPROP <G2> 
 (LAMBDA NIL
  (LRR (QUOTE G2)
       (FUNCTION (LAMBDA NIL (COND ((AND (<G3>)) (STK 0)) (*NIL*))))
       (FUNCTION
	(LAMBDA (<*>) (COND ((AND (<IMP1>) (<G3>)) (CONS (STK 1) (CONS <*> (CONS (STK 0) NIL)))) (*NIL*)))))) 
EXPR)

(DEFPROP <G3> 
 (LAMBDA NIL
  (LRR (QUOTE G3)
       (FUNCTION (LAMBDA NIL (COND ((AND (<G4>)) (STK 0)) (*NIL*))))
       (FUNCTION
	(LAMBDA (<*>) (COND ((AND (<OR1>) (<G4>)) (CONS (STK 1) (CONS <*> (CONS (STK 0) NIL)))) (*NIL*)))))) 
EXPR)

(DEFPROP <G4> 
 (LAMBDA NIL
  (LRR (QUOTE G4)
       (FUNCTION (LAMBDA NIL (COND ((AND (<G5>)) (STK 0)) (*NIL*))))
       (FUNCTION
	(LAMBDA (<*>) (COND ((AND (<AND1>) (<G5>)) (CONS (STK 1) (CONS <*> (CONS (STK 0) NIL)))) (*NIL*)))))) 
EXPR)

(DEFPROP <G5> 
 (LAMBDA NIL
  (NLRR (QUOTE G5)
	(FUNCTION
	 (LAMBDA NIL
	  (COND ((AND (CH /() (<G1>) (CH /))) (STK 1))
		((AND (<NOT1>) (<G5>)) (CONS (STK 1) (CONS (STK 0) NIL)))
		((AND (<QFF>) (<BDY>)) (CONS (STK 1) (STK 0)))
		((AND (<PRED>)) (STK 0))
		(*NIL*)))))) 
EXPR)

(DEFPROP <BDY> 
 (LAMBDA NIL
  (NLRR (QUOTE BDY)
	(FUNCTION
	 (LAMBDA NIL
	  (COND ((AND (<IVAR>) (<G5>)) (CONS (CONS (STK 1) NIL) (CONS (STK 0) NIL)))
		((AND (CH /() (<VLIST>) (CH /)) (<G5>)) (CONS (STK 2) (CONS (STK 0) NIL)))
		(*NIL*)))))) 
EXPR)

(DEFPROP <VLIST> 
 (LAMBDA NIL
  (NLRR (QUOTE VLIST)
	(FUNCTION
	 (LAMBDA NIL
	  (COND ((AND (<IVAR>) (CH /,) (<VLIST>)) (CONS (STK 2) (STK 0)))
		((AND (<IVAR>)) (CONS (STK 0) NIL))
		(*NIL*)))))) 
EXPR)

(DEFPROP <IVAR> 
 (LAMBDA NIL (NLRR (QUOTE IVAR) (FUNCTION (LAMBDA NIL (COND ((AND (<VARIABLE>)) (STK 0)) (*NIL*)))))) 
EXPR)

(DEFPROP <EQUIV1> 
 (LAMBDA NIL
  (NLRR (QUOTE EQUIV1)
	(FUNCTION
	 (LAMBDA NIL
	  (COND ((AND (CH ≡)) (QUOTE EQUIV))
		((AND (CH ↔)) (QUOTE EQUIV))
		((AND (SPWD IFF)) (QUOTE EQUIV))
		(*NIL*)))))) 
EXPR)

(DEFPROP <IMP1> 
 (LAMBDA NIL
  (NLRR (QUOTE IMP1)
	(FUNCTION
	 (LAMBDA NIL
	  (COND ((AND (CH ⊃)) (QUOTE IMP))
		((AND (CH ')) (QUOTE IMP))
		((AND (CH ') (CH >)) (QUOTE IMP))
		(*NIL*)))))) 
EXPR)

(DEFPROP <OR1> 
 (LAMBDA NIL
  (NLRR (QUOTE OR1)
	(FUNCTION (LAMBDA NIL (COND ((AND (CH ∨)) (QUOTE OR)) ((AND (SPWD V)) (QUOTE OR)) (*NIL*)))))) 
EXPR)

(DEFPROP <AND1> 
 (LAMBDA NIL
  (NLRR (QUOTE AND1)
	(FUNCTION (LAMBDA NIL (COND ((AND (CH ∧)) (QUOTE AND)) ((AND (CH &)) (QUOTE AND)) (*NIL*)))))) 
EXPR)

(DEFPROP <NOT1> 
 (LAMBDA NIL
  (NLRR (QUOTE NOT1)
	(FUNCTION (LAMBDA NIL (COND ((AND (CH ¬)) (QUOTE NOT)) ((AND (CH /-)) (QUOTE NOT)) (*NIL*)))))) 
EXPR)

(DEFPROP <QFF> 
 (LAMBDA NIL
  (NLRR (QUOTE QFF)
	(FUNCTION
	 (LAMBDA NIL
	  (COND ((AND (CH ∀)) (QUOTE FA))
		((AND (SPWD FA)) (QUOTE FA))
		((AND (CH ∃)) (QUOTE TE))
		((AND (SPWD TE)) (QUOTE TE))
		(*NIL*)))))) 
EXPR)

(DEFPROP >CLAUSES< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((EQ (QUOTE EMPTY) (STK1)) (QUOTE (:CH ;))) ((>C< 1) (LIST (STK1) (QUOTE (:CH ;))))))))) 
EXPR)

(DEFPROP >C< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((AND (MATCH (QUOTE (*))) (>C1< 0)) (STK0))
		  ((AND (MATCH (QUOTE (* . *))) (>C1< 1) (>C< 0)) (LIST (STK1) (QUOTE (:CH /,)) (STK0)))))))) 
EXPR)

(DEFPROP >C1< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((AND (MATCH (QUOTE (STAT . *))) (>S< 0)) (LIST (QUOTE (:CH /@)) (STK0)))
		  ((AND (MATCH (QUOTE (DSK . *))) (>FILE< 0)) (LIST (QUOTE DSK) (QUOTE (:CH :)) (STK0)))
		  ((AND (MATCH (QUOTE (FIND * *))) (>ID< 1) (>F1< 0))
		   (LIST (QUOTE FIND) (QUOTE (:CH /[)) (STK1) (QUOTE (:CH /,)) (STK0) (QUOTE (:CH /]))))
		  ((AND (MATCH (QUOTE (FIND CLAUSES *))) (>F1< 0))
		   (LIST (QUOTE FINDC) (QUOTE (:CH /[)) (STK0) (QUOTE (:CH /]))))
		  ((AND (MATCH (QUOTE (* . *))) (>ID< 1) (>VARLIST< 0))
		   (LIST (STK1) (QUOTE (:CH /[)) (STK0) (QUOTE (:CH /]))))
		  ((>NUMBER< 1) (STK1))
		  ((>ID< 1) (STK1))))))) 
EXPR)

(DEFPROP >VARLIST< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((AND (MATCH (QUOTE (*))) (>NUMBER< 0)) (STK0))
		  ((AND (MATCH (QUOTE (* . *))) (>NUMBER< 1) (>VARLIST< 0))
		   (LIST (STK1) (QUOTE (:CH /,)) (STK0)))))))) 
EXPR)

(DEFPROP >FILE< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((AND (MATCH (QUOTE (* . *))) (>ID1< 1) (>ID< 0))
		   (LIST (QUOTE (:CH /()) (STK1) (QUOTE (:CH /.)) (STK0) (QUOTE (:CH /)))))
		  ((>ID< 1) (STK1))))))) 
EXPR)

(DEFPROP >ID1< 
 (LAMBDA (%N) (OUTRUL %N (FUNCTION (LAMBDA NIL (COND ((>ID< 1) (STK1))))))) 
EXPR)

(DEFPROP >INPUT< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((AND (MATCH (QUOTE (* . *))) (>DECOP< 1) (>OPLIST< 0)) (LIST (STK1) (QUOTE (:CH :)) (STK0)))
		  ((>S< 1) (STK1))
		  ((>ID< 1) (LIST (STK1) (QUOTE (:CH :))))))))) 
EXPR)

(DEFPROP >OPLIST< 
 (LAMBDA (%N) (OUTRUL %N (FUNCTION (LAMBDA NIL (COND ((>OPL< 1) (LIST (STK1) (QUOTE (:CH ;))))))))) 
EXPR)

(DEFPROP >OPL< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((AND (MATCH (QUOTE (*))) (>OP< 0)) (STK0))
		  ((AND (MATCH (QUOTE (* . *))) (>OP< 1) (>OPL< 0)) (LIST (STK1) (QUOTE (:CH /,)) (STK0)))))))) 
EXPR)

(DEFPROP >S< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((EQ (QUOTE EMPTY) (STK1)) (QUOTE (:CH ;))) ((>G1< 1) (LIST (STK1) (QUOTE (:CH ;))))))))) 
EXPR)

(DEFPROP >G1< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((AND (MATCH (QUOTE (* * *))) (>EQUIV1< 2) (>G1< 1) (>G2< 0)) (LIST (STK1) (STK2) (STK0)))
		  ((>G2< 1) (STK1))))))) 
EXPR)

(DEFPROP >G2< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((AND (MATCH (QUOTE (* * *))) (>IMP1< 2) (>G2< 1) (>G3< 0)) (LIST (STK1) (STK2) (STK0)))
		  ((>G3< 1) (STK1))))))) 
EXPR)

(DEFPROP >G3< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((AND (MATCH (QUOTE (* * *))) (>OR1< 2) (>G3< 1) (>G4< 0)) (LIST (STK1) (STK2) (STK0)))
		  ((>G4< 1) (STK1))))))) 
EXPR)

(DEFPROP >G4< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((AND (MATCH (QUOTE (* * *))) (>AND1< 2) (>G4< 1) (>G5< 0)) (LIST (STK1) (STK2) (STK0)))
		  ((>G5< 1) (STK1))))))) 
EXPR)

(DEFPROP >G5< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((AND (MATCH (QUOTE (* *))) (>NOT1< 1) (>G5< 0)) (LIST (STK1) (STK0)))
		  ((AND (MATCH (QUOTE (* . *))) (>QFF< 1) (>BDY< 0)) (LIST (STK1) (STK0)))
		  ((>PRED< 1) (STK1))
		  ((>G1< 1) (LIST (QUOTE (:CH /()) (STK1) (QUOTE (:CH /)))))))))) 
EXPR)

(DEFPROP >BDY< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((AND (MATCH (QUOTE ((*) *))) (>IVAR< 1) (>G5< 0)) (LIST (STK1) (STK0)))
		  ((AND (MATCH (QUOTE (* *))) (>VLIST< 1) (>G5< 0))
		   (LIST (QUOTE (:CH /()) (STK1) (QUOTE (:CH /))) (STK0)))))))) 
EXPR)

(DEFPROP >VLIST< 
 (LAMBDA(%N)
  (OUTRUL %N
	  (FUNCTION
	   (LAMBDA NIL
	    (COND ((AND (MATCH (QUOTE (*))) (>IVAR< 0)) (STK0))
		  ((AND (MATCH (QUOTE (* . *))) (>IVAR< 1) (>VLIST< 0))
		   (LIST (STK1) (QUOTE (:CH /,)) (STK0)))))))) 
EXPR)

(DEFPROP >IVAR< 
 (LAMBDA (%N) (OUTRUL %N (FUNCTION (LAMBDA NIL (COND ((>VARIABLE< 1) (STK1))))))) 
EXPR)

(DEFPROP >EQUIV1< 
 (LAMBDA (%N) (OUTRUL %N (FUNCTION (LAMBDA NIL (COND))))) 
EXPR)

(DEFPROP >IMP1< 
 (LAMBDA (%N) (OUTRUL %N (FUNCTION (LAMBDA NIL (COND))))) 
EXPR)

(DEFPROP >OR1< 
 (LAMBDA (%N) (OUTRUL %N (FUNCTION (LAMBDA NIL (COND))))) 
EXPR)

(DEFPROP >AND1< 
 (LAMBDA (%N) (OUTRUL %N (FUNCTION (LAMBDA NIL (COND))))) 
EXPR)

(DEFPROP >NOT1< 
 (LAMBDA (%N) (OUTRUL %N (FUNCTION (LAMBDA NIL (COND))))) 
EXPR)

(DEFPROP >QFF< 
 (LAMBDA (%N) (OUTRUL %N (FUNCTION (LAMBDA NIL (COND))))) 
EXPR)